; 
; Copyright 2011-2012 Jeff Bush
; 
; Licensed under the Apache License, Version 2.0 (the "License");
; you may not use this file except in compliance with the License.
; You may obtain a copy of the License at
; 
;     http://www.apache.org/licenses/LICENSE-2.0
; 
; Unless required by applicable law or agreed to in writing, software
; distributed under the License is distributed on an "AS IS" BASIS,
; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
; See the License for the specific language governing permissions and
; limitations under the License.
; 

;
; On Cyclone II dev board, make LEDs flash in sequence.
;

(assign a 1)
(while 1
	(assign a (bitwise-or (lshift a 1) (rshift a 7)))
	(write-register 1 a)
	(for j 0 10 1
		(for i 0 16000 1
			())))

